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Something Personal 


I had another birthday last weekend. Now my age is a perfect 
Square again, for the seventh time. Another 15 years and it will 
be square again. At most I can expect two or three more square 
ages. Numbers like these are interesting to me. Moses Said, 
after recalling the brevity and frailty of human life, “So teach 
us to number our days, that we may apply our hearts unto wisdom." 


Certainly we all should echo that prayer. We want our years to 
count for something. Solomon said, “The fear of the LORD is the 
beginning of knowledge: but fools despise wisdom and 
instruction.“ David said, “The fool has said in his heart, 
‘There is no God'." James said, “If any of you lack wisdom, let 
him ask of God, who gives to all men liberally, and upbraids not; 
and it shall be given him." Paul said, “In Jesus Christ are 
hidden all the treasures of wisdom and knowledge." 


And I say, the longer I live, the more I find that God is there, 
and faithful to his Word. The better part of wisdom is trusting 
the truly trustworthy. Solomon says it best: “Trust in the LORD 
with all your heart, and lean not unto your own understanding. 

In all your ways acknowledge him, and he shall direct your 
paths." 


As I enter my jubilee year, I re-commit myself to doing just 
that. 


Peeking Inside AppleWorks 1.3, Part 4: 
Application Overlay Manager............Bob Sander-Cederlof 


AppleWorks is a lot bigger than a normal Apple. The 6502 microprocessor is 
restricted to 64K of memory address space, and the fraction of this left to 
a ProDOS-based program is normally less than 48K. The AppleWorks 
applications use large areas of memory for the active data, so the amount 
left for programs is very small. So how does it work? By using overlays. 


The file on an AppleWorks Program disk named APLWORKS.SYSTEM (which we have 
been analyzing over the last four months) contains subroutines which stay 
in RAM regardless of what activity you are performing. After starting up 
AppleWorks, this code resides in RAM from $1000 up to $2Exx. RAM from $800 
to $FFF is used for various variables and buffers. RAM from $3000 up to 
$BEFF is used for application programs and data. 


All of the rest of the code for the three applications is on the two files 
named SEG.MO and SEG.M1. These two files together contain 43 small 
segments of code, designed to be loaded into RAM only when needed. The 
first 15 segments appear to me to be the data base application; the next 8, 
the word processor; and the rest, the spreadsheet. At the beginning of 
each file is an "index" which tells where in the file each program segment 
begins. The article "Dissecting AppleWords SEG.MO and SEG.M1 Files" later 
in this same issue goes into detail about the structure of the index. 


This month we will look in detail at the code inside AppleWorks which loads 
in the various overlays. Since it happens to be very near the beginning of 
APLWORKS.SYSTEM, I am also listing the JMP vector that starts at $1000. 


Since each of the 43 overlays will need to use various subroutines from 
APLWORKS.SYSTEM, the author of AppleWorks needed a straightforward way for 
them to know their addresses. Woz's monitor is a good example of what 
happens when you do not provide such a method. 


Back in 1977 we found hundreds of neat entry points in that tiny little 
ROM, all at very specific addresses. We used them flagrantly, to save RAM 
for better uses. Then Apple started taking routines out, moving others, 
until they finally printed a list of the 110 or so they will continue to 
support. There is no easy system to using these entry points, because Woz 
originally coded them with the idea of squeezing the most function into the 
Smallest amount of memory. 


The Apple IIgs monitor, on the other hand, is a good example of what 
happens when you go overboard in trying to provide a calling system. After 
acquiring over ten pounds of documentation, I still am only dimly 
understanding all the ins and outs of the toolboxes. I know it all starts 
by loading a 16-bit coded number into the X-register, and doing a JSL 
$E10000 command. Parameters are passed on the stack, and an error code is 
returned in the A-register. All is done very systematically, very cleanly, 
very macintoshly, but not very efficiently. The toolbox calls must be done 
in full 16-bit mode, cannot use the registers to pass data, eat up many 
machine cycles getting to the actual tool and back again, and do require 
the use of the A- and X-registers. Still, it may be the best way to 
create, organize, and control an open-ended set of tools in a machine like 
the IIgs. 


ProDOS-8 MLI gives an example of another method, in which a single entry 
point processes all calls. The byte following the JSR to that entry point 
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S-C Macro Assembler Version 2.0 o ‘ 
Version 2.0 DOS Upgrade Kit for 1. 0/1. 1/1. 2 owners % 
ProDOS Upgrade Kit for Version 2.0 DOS owners . . . . . . 2. +. « -« 
Cross Assemblers for owners of S-C Macro Assembler. : 
(Available: 6800/1/2, 6301, 6805, 6809, 68000, 2-80, z-8, "8048, "8051, 
1802/4/5, PDP-11, GI1650/70, Mitsubishi 50740, others) 
Source Code of any S-C Macro Assembler or Cross Assembler... . 


- DOS $100, ProDOS $100, both for a5 


$20 


~  « $30 
: $32. 50 ' $50 each 
8085, 


- each, additional $100 


S-C DisAssembler (ProDOS only) . . . ... .- without source code $30, with source $50 
RAK-Ware DISASM (DOS only) . . r ae % without source code $30, with source $50 
ProVIEW (ProDOS-based disk utility “apoerany ie Yee teh “ini ee. a! Or ES ae Oe cee Ue $20 
Full Screen Editor for S-C Macro (with seca source code) . . . . .... $49 
S-C Cross Reference Utility. . . . ge + without source code $20, with source $50 
S-C Word Processor, both DOS & ProDoS, both “4o- & 80-columns, with complete source code $50 
DP18 and DPFP, double precision math for Applesoft, including complete source code. . $50 
ES-CAPE (Extended S-C Applesoft Program Editor), including Version 2.0 With Source Code . $50 
ES-CAPE Version 2.0 and Source Code Update (for Registered Owners) . . . « « «© « « $30 
Bag of Tricks 2 (Quality Software) . . . «2. «© «© «© «© © © «© «© « « ($49.95) $45 
S-C Documentor (complete commented source code of Applesoft ROMs) . . . . « « « « $50 
Copy II Plus (Central Point Software) . . . . «6 «© «© «© « « « « « ($39.95) $30 
AAL Quarterly Disks ao ee oe eh eh ehh eC Cet e:tiCeacHs $15, OV any four ffor $45 


(All source code is formatted for S-C Macro Assembler. Other assemblers 
require some effort to convert file type and edit directives. ) 


Vinyl disk pages, 6"x8.5", hold two disks each ae ne Se ee a ee ee 10 for $6 
Diskette Mailing Protectors (hold 1 or 2 disks) . . . ee er ee a 40 cents each 

(Cardboard folders designed to fit 6"x9" Biivé lépes: ) or $25 per 100 
Envelopes for Diskette Mailers . . . . . «© «© «© «© «© «© «© «© «© © «2 6 cents each 
Sider 20 Meg Hard Disk, includes controller & software. . . . «. « «© « « ($695) $550 
Sider 40 Meg Hard Disk, includes controller & software. . . . . . « « « ($995) $860 
Minuteman 250 Uninterruptible Power Supply . . . . «. « «© «© «© «© « « « ($359) $320 
Minuteman 300 Uninterruptible Power Supply . . . . © « «© «© «© « « « « ($549) $490 
65802 Microprocessor, 4 MHz (Western Design Center) . . . . 2. 6 «© «© «© © « «© « $25 
quikLoader EPROM System (SCRG) . . . . . 2. 2. © © © «© «© © «© «© « ($179). $170 
PROmGRAMER (SCRG) . . . . «© 2. © © «© «© © © © © © © © © «© ($149. 50) $140 
"Exploring the Apple IIgs" . . . . . .«. « «© « « «+ . Gary B. Little ($22.95) $21 
"Apple IIgs Technical Reference" . . . e « « « « Michael Fischer ($19.95) $19 
"65816/65802 Assembly Language Proahanming™. . « « « « Michael Fischer ($21.95) $20 
"Programming the 65816" . . . . - « « «  « David Eyes & Ron Lichty ($22.95) $21 
"Programming the Apple IIgs in C and jasenbiy Language". . . .Mark Andrews ($18.95) $18 
"Apple //e Reference Manual". . . . « « « « «© « « « Apple Computer ($24.95) $23 
"Apple //c Reference Manual". . . . . «.« « « « « « «» Apple Computer ($24.95) $23 
"ProDOS-8 Technical Reference Manual". . . . . . . +. ++. Apple Computer ($29.95) $27 
"ProDOS-16 Technical Reference Manual" . . . . . +. +. +. Apple Computer ($29.95) $27 
"Apple IIgs Firmware Reference". . . . « «© « « «+ « «+ Apple Computer ($24.95) $23 
"Apple IIgs Hardware Reference". . . . .«. «©. «© « « «+ « Apple Computer ($24.95) $23 
"Apple IIgs Toolbox Reference, Volume 1". . . . « « +© +=« Apple Computer ($26.95) $24 
"Apple IIgs Toolbox Reference, Volume 2", . . . . . +. ++. Apple Computer ($26.95) $24 
"Apple IIgs Programmer's Introduction" . . . . . . . +. Apple Computer ($32.95) $30 
"ProDOS Inside and Out" . . . . . +. +. +. +. Dennis Doms & Tom Weishaar ($16.95) $16 
"Beneath AppleProDOS". . . . . .«. . +. +. +. Don Worth & Pieter Lechner ($19.95) $18 # 
"Beneath Apple DOS". . . . . . . +. +«. +. ++ Don Worth & Pieter Lechner ($19.95) $18 
"Inside the Apple //c®. . . . «. .« «6 « «© « « « « .« Gary B. Little ($19.95) $18 
"Inside the Apple //e". . 8 ehhh ehhh eC t( «Gary BL Little ($19.95) $18 
"Understanding the Apple /Te es awe Ta eC os Ss “sig wet, cae Jim Sather ($24.95) $23 
"Understanding the Apple II". . 8 6 hv elhlUm™hCUme™Cte:~C:*é«iS em «Sather = ($22.95) $221 
"Apple II+/IIe Troubleshooting & Repair Guide". ae gt lates Le ge. Brenner ($19.95) $18 
"Assembly Language for Applesoft Programmers". . . . . . Finley & Myers ($18.95) $18 
"Now That You Know Apple Assembly Language". . . . . . . .dules Gilder ($19.95) $18 
"Enhancing Your Apple II, vol. 1". . . . . . +. +. +. +. # =ODon Lancaster ($15.95) $15 
"Enhancing Your Apple II, vol. 2". . . . . +. +. +. ~~. +. + «=ODon Lancaster ($17.95) $17 
"Assembly Cookbook for the Apple II/IIe". . . . . . +. +. # ODon Lancaster ($21.95) $20 
"Microcomputer Graphics" . . . . . «.« « « «© « « « « « Roy E.Myers ($14.95) $14 
"Assembly Lines -- the Book®". . . . . . 2. 6 «© «© « « Roger Wagner ($19.95) $12 
* These items add $2 for first item, $.75 for each additional item for US shipping. 


+ Inquire for shipping cost. 

Customers outside USA inquire for postage needed. 
Texas residents please add 8% sales tax to all orders. 
<< Master Card, VISA, Discover and American Express >> 


S-C Software Corporation 
2331 Gus Thomasson #125 
DALLAS, TX 75228 
Phone 214-324-2050 


contains a command code, and the next two bytes point to a parimoter block. 
ProDOS-16 uses two bytes for the command code and four bytes four the 
parameter block address. 


Robert Lissner uses a simple system of vectoring all subroutine calls 
through several JMP vectors throughout AppleWorks. Some of his subroutines 
pass all their data in the three 6502 registers, some use fixed locations 
in page zero or in the $800-$FFF area, and some use a standard calling 
sequence with parameters after the JSR. One set of JMP vectors starts at 
$1000, and is used for calling all of the APLWORKS.SYSTEM subroutines. 
Another set begins at $D002 in the alternate $D000 bank of RAM, where 
either SEG.00 or SEG.XM has been loaded. Each overlay segment also begins 
with a JMP vector. 


I have shown the JMP vector for APLWORKS.SYSTEM in lines 1520-2030 of the 
listing. To save space in the newsletter, I plugged in actual hexadecimal 
addresses for all those subroutines which are not listed in this issue. 
Where I have given them names, I included them as comments. The rest of 
them I will name later, when I get to them and figure out what they do and 
think of a unique meaningful moniker. 


When AppleWorks is first fired up by executing APLWORKS.SYSTEM, one of the 
tasks is to look for either a 64K (or larger) memory card in the auxiliary 
slot or a card like RamFactor in one of the other slots. If it finds a 
RamFactor-like card with enough free memory, it loads SEG.XM into the 4K 
area at $D000. (RamFactor is Applied Engineerings version of the Apple 
Memory Card, and of course there are other companies also making these 
kinds of cards. In the rest of this article I will call this kind of 
memory SlotRAM memory.) If there is not enough SlotRAM memory available 
but there is 64K in the AuxRAM, AppleWorks loads SEG.00 instead. 


How can it do that? ProDOS supposedly has that $D000 space all tied up! 


Well, ProDOS claims it all, but only really USES from $D100 through $D3FF. 
This is where the standard QUIT code is kept. During initialization 
AppleWorks copies that $300-byte area to the SEG.PR file, and then loads 
the appropriate SEG.00 or SEG.XM file. When you QUIT out of AppleWorks, it 
copies those $300 bytes from SEG.PR back into $D100 before doing the ProDOS 
Quit call. Note: AppleWorks only saves and restores $300 bytes! If you 
are using a non-standard Quit processor which takes over $300 bytes, 
running AppleWorks will clobber it. You will then have to reboot after 
quitting AppleWorks. 


There are 24 subroutines inside the $D000 area which are accessed through a 
JMP vector starting at $D002. Depending on which SEG.xx is loaded there, 
they either talk to AuxRAM or SlotRAM. The routines that are of interest 
this month are equated in lines 1200-1220; listing them will have to wait 
for a future issue. 


I defined some useful macros in lines 1320-1510. Macros are gradually 
growing on me. When I first added them to the S-C Assembler II, creating 
the S-C Macro Assembler version 1.0, I really couldn't think of many uses 
for them beyond sales appeal. Then I started using them for generating 
various types of data lists, and often-used code sequences like MLI calls. 
Now I am finding more and more uses. 


The MLI.SL macro is a slight modification of my standard MLI-call macro. I 
added lines 1360-1400 to generate the error-tracking code whioh Lissner 
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For the “Instant On” Apple IIGs. 
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“Electronic Hard Disk” 

Now when you tum on your IGS vour 
favorite program can appear on screen 
in just a few seconds! With RamKeeper, 
your [IGS memory card will retain stored 
programs and stored data while your 
liGs is tumed off RamKeeper allows you 
to divide your IIGS memory into part 
“electronic hard disk” and part RAM for 
your programs workspace—in almost 
any Way you want and at anytime you 
want GS-RAM, Gs-RAM Plus, Apple IIGs 
memory card and most other [Gs 
memory cards are compatible with 
RamKeeper. 


Permanent Storage with an 


| Supports Up to Two IIcs Memory 
Cards at the Same Time 
If you bought your IIGs with Apple's 
memory card and later wished you had 
the Gs-RAM, no problem. RamKeeper will 
; support both cards plugged into Ram- 
Keeper simultaneoush! 


| 
| How it Works 
| Just unplug vour [IGS memory card 


“Tre purchased several 
Applied Engineering 
products over the years. 
They're always well 
made and performed 


as advertised | 
recommend them 
upole-heartedly.~ 


Steve Wozniak the creator 
of Apple Computer 


| 
| 
| 


from your computer, plug your IGS 
memory card into RamKeeper, plug 
RamKeeper into the IGS memory slot If 
you have another JIGS memory card, an 
additional card socket on RamKeeper 
will accommodate your second card. 
That’s all there is to it 


Reliability from the Most 
Experienced 

Applied Engineering has the most 
experience in the industry with battery- 
backed memory for the Apple so you are 
assured of the most reliable memory 
back-up system available. And in the 
wond of battery-backed memory, reliabil- 
ity is everthing! Thats why Applied 
Engineering uses the more dependable 
Gel-Cell's instead of Ni-Cad batteries (if 
Ni-Cad’s aren't discharged periodicalh, 
they lose much of their capacity). 
RamKeeper has close to 6 times (about 
6 hours) the “total power failure” back- 
up time of other systems. When power 
retums, RamKeeper automatically’ re- 
charges the battery to a full charge. With 
power from your wall oudet, RamKeeper 
will back-up your [IGS memory cards 
RAM indefinatel. 


RamKeeper Has and 

Does It All! 

e Allows instant access to your programs 
without slow disk delays 

e Configure Kilobytes or Megabytes of 
instant ROM storage for your favorite 


programs 


| 
| 
| 
| 


IGS power supply 


RamKeeper 


seh ee 


s BQENCO 
AST SU 


e Reduces power strain to your intemal 


e Contains back-up status LED.’s 

e Can support up to wo TGs memory: 
cards simultaneoush: 

e Supports both 256K installed memory: 
chip boards like Gs-RAM and the Apple 
IGS Memory Expansion Card as well 
as 1 MEG installed memory chip 
boards like Gs-RAM Plus 

e 5-vear hassle-free warranty 

e 15 day money back guarantee 

e Proudh made in the USA 

e RamKeeper comes complete with 
battery, software and documentation 


Only $179.00! 


(aS-RAM card sboun in photo 
not inclided) 


Order Your RamKeeper Today! 
See vour dealer or call (214) 241-6060, 

9:00-11:00 CST, 7 days a week, or send 

check or money order to Applied 

Engineering. MasterCard, VISA and 

CO.D. welcome. Texas residents add 7% 

sales tax. Add $10.00 if outside USA | 


i 
| 
APPLIED ENGINEERING” 
The Apple enbancement experts. | 

(214) 241-6060 7 


P.O. Bos 798, Carrollton, TX 5006 


Prices subject to change without notice 
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uses. After nearly every call to MLI he uses a HEQ to braneh around an INC 


of the error flag. ProDOS returns with status EQ and carry clour if there 
was no error, or NE and carry set if there was an error. ‘The vurious 
ProDOS manuals make it clear that the carry status is supposed to be the 


preferred error flag, and I always got the impression that future versions 
might not support the EQ/NE method. Well, now they will HAVE to continue 
that support, because the world's most popular Apple program says so. Most 
other software I have looked at or written uses the CC/CS method, including 
such basic software as BASIC.SYSTEM. 


If I use the SLI.ML macro with only two parameters, it generates only the 
two-line MLI call. If I add a third parameter, it generates the two extra 
lines. The third parameter in this macro is never actually used, just 
counted. The .DO J#>2 line says "only assemble the following lines (up to 
the .FIN line) if the number of parameters is greater than two." 


By using the private label :1 in the macro definition I avoid having to 
clutter up the code with lots of extra local or normal labels. This makes 
the listing easier to read with understanding. For example, look at lines 
4340-4360. Those three lines actually generate 12 lines of code with three 
labels. You do have to remember when you are reading the code what these 
macros generate, if you are trying to understand the code. In these three 
lines, remember that any errors cause SEGLOAD.ERROR.FLAG to be incremented. 
If you want to, you can leave out the .LIST MOFF line that I used at the 
beginning (the unlisted line 1010). Then all of the code generated by each 
macro will be listed during assembly. I wanted to suppress the macro 
expansion listing to make the code easier to understand and to make it fit 
in the newsletter. 


The HS macro is entirely for the purpose of shortening the listing. I use 
it in the SEGMENT.TABLE definition in lines 2330-2590. This table would 
take up two or three times as much paper if I did not use the macro. 


The MSG macro is useful for defining strings that begin with a character 
count and include only printing ASCII characters. Since almost all of the 
text messages included in AppleWorks are like that, MSG is quite useful. I 
used it here in line 5230. 


The SEGMENT.TABLE in lines 2230-2600 keeps track of vital information about 
the segments. There are four bytes for each segment. The first byte is 
the page number the segment should be loaded at. For example, Segment 01 
has 35 in this byte, so it should be loaded at $3500. 


The second byte of each group of four is used to keep track of how long it 
has been since the segment was loaded. Each time a segment is loaded the 
second byte for its entry in the SEGMENT.TABLE is zeroed while the second 
byte for all other entries is incremented, by the code in lines 3220-3360. 
I call this byte the "age" of a segment. I have not yet found any code 
which takes advantage of the information in the age-byte, but at least it 
is there. It may be, or could be, used to determine which segments to keep 
in AuxRAM or SlotRAM if there is not room for all of then. 


The third and fourth bytes of each four-byte entry are 0000 if the segment 
must be loaded from disk. Naturally, this is what they are initially. 
After a segment is loaded from disk, if there is room in AuxRAM or SlotRAM 
it is also copied there. Then these two bytes in the segment table are set 
to a coded address so that the segment can be downloaded from RAM the next 
time it is needed. 
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When you select one of the three applications from the main menu in 
AppleWorks, LOAD.PROGRAM.SEGMENT.A will be called. I put a lot of 
information about the calling sequence of this program in the comments in 
lines 3000-3140. Basically, the segment number will be in the A-register. 
Lines 3170-3210 save this number and multiply it by four to make an index 
into the segment table. As already mentioned, lines 3220-3360 then 
increment the second byte of all entries and zero the second byte for the 
entry for te segment we want to load. 


Lines 3370-3430 check to see if this segment is the same as the last one 
loaded. If it is, there is nothing left to do so it exits. I say "exits" 
rather than "returns" because it may or may not return. Bit 7 in the 
A-register at the time of call controls whether it returns after loading a 
segment or jumps into the loaded segment. If it does the latter, it jumps 
to $xx02, where xx is the page number the segment was loaded into. In this 
case, the X-register is a function number to be interpreted by the segment. 
When the segment is finished, it may return with an RTS to the program 
which called LOAD.PROGRAM.SEGMENT.A. The exit options are processed in 
lines 4810-4880. 


If the segment is not the same as the most recently loaded one, line 3430 
stores the new segment number in the CURRENTLY.LOADED.SEGMENT variable. 


Lines 3440-3520 pick up the load address byte out of the segment table and 
install it in the various places it will be needed later. If that byte is 
00, then the segment does not exist and the program returns with an RTS. 
This should never happen, of course, and I presume if it did it would be a 
bug. There are three null segments (OF, 14, and 15), but I would be 
surprised if any useful purpose is served by trying to load them. On the 
other hand, if there is some code somewhere which attempts to load all the 
segments in a range so that they will be copied in to AuxRAM or SlotRAM 
memory, the null segments might be included in the range without any 
disastrous effects. 


Lines 3530-3570 treat segment $20 in a special way. I am not sure what 
that segment is, or why it is special. If you are trying to load segment 
$20 and the flag at $EA7 is non-zero it will not be loaded. Instead the 
loader will exit, either with an RTS or by using the function call (JMP to 
$4502 with a code in the X-register). I presume that $EA7 is set non-zero 
when function $20 is loaded, and stays that way until it is covered up by 
something else. This would let functions within segment $20 be called 
without reloading it unnecessarily even when other segments have been 
loaded after it was. I don't know, it sounds sort of kludgy. I'll just 
have to wait until I have looked into and disassembled a lot more of the 
AppleWorks code. 


Lines 3580-3690 make sure that the variable CURRENT.APPLICATION is changed 
whenever you load segments $01, $10, or $18. I haven't found any use for 
this yet, and I am just hoping I have correctly guessed its significance. 
I have assumed that those segment numbers are the initially segments for 
each of the three applications, and have so indicated in the comments in 
lines 2130-2210. 


Lines 3700-3750 look at the third and fourth bytes in the segment table 
entry to see if they are 0000. If so, the segment must be loaded from the 
AppleWorks Program disk. If not, lines 3760-3810 download the segment from 
AuxRAM or SlotRAM memory. The downloading is handled by a subroutine from 
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either SEG.00 or SEG.XM, which I will probably describe in dutail ina 
future issue of AAL. They handle AuxRAM or SlotRAM in interesting ways. 


If a segment must be loaded from disk, the subroutine beginning at line 
3830 takes over. Lines 3840-3920 modify the general SEG.xx pathname buffer 
to point to either SEG.MO or SEG.M1. For some reason the first nine 
segments are stored on SEG.MO and the rest on SEG.M1. Once upon a time it 
probably made sense.... 


Lines 3930-3970 will then try to open the selected SEG.Mx file. If the 
file will not open, AppleWorks assumes the only possible reason could be 
that the disk is not mounted and calls CALL.FOR.AWPROGRAM.DISK (lines 
2780-2950) to tell you to do so. The message says "Place the AppleWorks 
PROGRAM disk in Drive 1 and press Return." Actually you SHOULD be able to 
place the disk in ANY drive, if you have specified a complete pathname for 
the program disk. And, actually, you can press any key, not just RETURN. 


Once the file has been opened successfully, lines 3990-4050 store the 
reference number ProDOS assigns the file in all the other IOBs. Line 4060 
calls CLR.PRODOS.BITMAP to make sure ProDOS will allow reading into the 
range $800-9FFF. Lines 4070-4080 clear a byte used as an error flag for 
all the subsequent MLI calls. After going through all the motions of 
loading the segment this flag will still contain a zero if no errors were 
reported by ProDOS. 


Lines 4090-4120 read in the first 140 bytes of the SEG.Mx file. The front 
of the file contains a segment offset table with 3-byte values for each 
segment. These three bytes tell what offset (or MARK) value to send via 
the MLI "Set Mark" call before reading in the segment. Subtracting a 
segment's offset from that of the next segment gives the length of the 
segment we want to load. Since there are 43 segments, will need 43 3-byte 
values for starting addresses, plus one more for the zero-th entry, plus 
still one more for computing the length of the 43rd segment. That is a 
total of 45#3 bytes, or 135. Appleworks reads 140, which allows for one 
more segment to be added without changing this constant. 


Note that the program goes right on reading the SEG.Mx file whether there 
is a reading error or not. SEGLOAD.ERROR.FLAG gets incremented if there is 
an error, but nothing else is done about it until we have gone through all 
the motions of loading the segment and closing the file. If there was any 
error at all, lines 4380-4390 find it out and return with an RTS to whoever 
called the segment loader. This seems a little dangerous, because the user 
will never know what happened. A glitohed AppleWorks Program disk could 
cause very erratic behavior without any explanation, yet AppleWorks COULD 
have reported what was wrong and exactly which segment could not be loaded. 


Lines 4130-4180 multiply the segment number by 3 to get a pointer into the 
SEG.Mx segment offset table. Lines 4190-4320 pick up the offset and save 
it for the Set Mark MLI call,: and also compute the segment length for the 
Read MLI call. Lines 4340-4360 set the mark, read the segment, and close 
the file. After the segment has been read, line 4370 calls 

SET. PRODOS.BITMAP to re-protect all RAM from $800 through $9FFF. 


The first two bytes of every segment on both SEG.Mx files contains the end 
address plus 1 of that segment. This value may be different from the 
number of bytes loaded plus the starting address, if the segment needs some 
private RAM at the end of itself. However, I haven't found any cases where 
this is so. We already knew the length in order to read the segment from 
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SPECIAL !!! EXPANDED RAM/ROM BOARD: $39.00 
Similar to our $30 RAM/ROM dev board described below Except this board has two sockets to hold your choice 
of 2-2K RAM, 2-2K ROM or even 2-4k ROM for a total of 8K. Mix RAM and ROM too. Although Apple limits 
access to only 2K at a time, soft switches provide convenient socket selection. Hard switches control defaults. 


IMPROVED {11 J[ IN A MAC (ver 2.0): $75.00 
Now includes faster graphics, UniDisk support and more! Bi-directional data transfers are a snap! This Apple II 
emulator runs DOS 3.3/PRODOS (including 6502 machine language routines) on a 512K MAC or MACPLUS. All 
Apple |] features are supported such as HI/LO-RES graphics, 40/80 column text, language card and joystick. 
Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk accessories and support 
for 4 logical disk drives. includes 2 MAC diskettes (with emulation, communications and utility software, plus 
DOS 3.3 and PRODOS system masters, including Applesoft and Integer BASIC) and | Apple I! diskette. 


SCREEN.GEN: $35.00 
Develop HI-RES screens for the Apple i! on a Macintosh. Use MACPAINT (or any other application) on the MAC to 
create your Apple Ii screen. Then use SCREEN GEN to transfer directly from the MAC to an Apple fi (with 
SuperSerial card ) or lic. Includes Apple Il diskette with transfer software plus fully commented SOURCE code. 


MIDI-MAGIC for Apple //c: $49.00 
Compatible with any MID! equipped music keyboard, synthesizer, organ or piano. Package includes a MiDl-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-1AGIC compatible 
with Apple fl family using Passport MIDI card (or our own input/output card w/drum sync for only $99.00). 


FONT DOWNLOADER & EDITOR: $39.00 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer Switch back and 
forth easily between standard and custom fonts. Special functions (like expanded, compressed etc ) supported. 
Includes HIRES screen editor to create custom fonts and special graphics symbols. For Apple Il, Il+, //e. Specify 
printer: Apple Imagewriter Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/85, or Okidata 92/192 

* FONT LIBRARY DISKETTE #1: $19.00 contains lots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembler to investigate the inner workings of Apple |i machine language programs. 
DISASM converts machine code into meaningful. symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables. displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine language learning aid to both novice & 
expert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 


The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 

Converts a ‘dumb’ parallel printer !/F card into a ‘smart’ one. Simple command menu. Features include 
perforation skip, auto page numbering with date & title, large HIRES graphics & text screen dumps Specify 
printer: MX-80 with Graftrax-80, MX-100, MX-80/100 with Graftraxplus. NEC 6092A, C.Jtoh 8510 
(Prowriter), OkiData 82A/83A with Okigraph & OkiData 92/95. 

‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novation’s Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. 

RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $CnO00-CnFF and $C800-CFFF. 
C-PRINT For The APPLE //c: $69.00 

Connect standard paralle! printers to an Apple //c serial port. Separate P/S included. Just plug in and print! 


Unless otherwise specified, all Apple Il diskettes are standard (not copy protected!) 3.5 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COD phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 07052 = (201) 325-1885 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESE 
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disk, so recomputing the same value seems like make-work. But who knows? 
Lines 4400-4520 pick up the address from the beginning of the segment, 


subtract the loading address, and store the result in SL.LEN. That gives 
the "uploader" the number of bytes to copy into AuxRAM or SlotRAM. 


Lines 4530-4610 compute the actual address of the current segment's entry 
in the segment table, and save this address at SL.SEG. We are gradually 
building up the calling sequence for the "uploader". Lines 4620-4710 
determine whether there is enough RAM left in either AuxRAM or SlotRAM, 
whichever is being used, for uploading the segment. If so, lines 4720-4770 
call on the uploader to do so. The uploader will set the 3rd and 4th bytes 
for the segment in the segment table so that future calls to load this 
segment can download them from RAM instead of reading the AppleWorks 
Program disk. 


Lines 4810-4880 have already been discussed above. They decide whether to 
return to the caller with an RTS, or to JMP into the segment just loaded 
with a function code in the X-register. Lines 4930-5200 are the parameter 
blocks, or IOBs, used by the various MLI calls in the segment loader. 


Lines 5220-5240 define the message used by the program which prompts you to 
mount the AppleWorks program disk. I used the .PH and .EP because this 
message does not immediately follow the IOBs in the real code. The .PH 
address shows where it really is assembled in version 1.3. Lines 5250-5400 
are the two subroutines for de-protecting and protecting RAM from $800 
through $9FFF. 


Assembly Language Programmers Wanted 


The American Printing House for the Blind (APH) is looking 
for assembly language programmers to write and modify 
educational and applications software for the Apple II 
series. People interested should be familiar with 6502, 
65C02, and 65C816 processors. They should also know both 
DOS 3.3 and ProDOS. Knowledge of the Z-80 is also highly 
desirable. The position requires some travel, speaking, 
and writing. Interested candidates should send a resume 
and some example code to: 


American Printing House for the Blind 
Larry Skutchan 
P. O. Box 6085 
Louisville, KY 40206 


An Equal Opportunity Employer 
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For Those Who Want the Most. 
From Those Who Make the Best. GS-RAM: 


Now expand the IIGS’ RAM and ROM with up to8 MEG of‘ 


Gs-RAM has an all new design. A design that 
delivers higher performance including in- 
creased speed, greater expandability, and 
improved software. 
More Sophisticated, Yet 
Easier to Use 

GS-RAM works with all IIGs software. In fact 
any program that runs on Apple’s smaller 
memory card runs on the Gs-RAM. But with 
Gs-RAM you can have more memory, im- 
proved performance, and almost unlimited 
expansion capabilities. We've designed the 
new Gs-RAM to be easier to use too—you 
don’t have to adjust the size of your RAM 
disk every time you use a DMA device. No 
other RAM card with more than 4 banks of 
memory installed can make the same daim. 
More than Just Hardware 

Each Gs-RAM and Gs RAM Plus includes the 
most powerful set of IlGs software enhance- 
ments available anywhere. In fact, our nearest 
competitor offers only a fraction of the 
invaluable programs that we include with 
each Gs-RAM card. This software includes the 
most powerful disk-caching program available, 
the Gs-RAM Cache. The Cache will make most 
of your applications run up to 7 Ames faster. 
Also induded is a diagnostic utility that lets 
you test your Gs-RAM by graphically showing 
the location of any bad or improperty 
installed RAM chips. And for AppleWorks 
users, we give you Our exclusive Expander 
program that dramatically enhances both the 
capabilities and speed of AppleWorks. 
Making AppleWorks Even Better 

Applied Engineering's Expander program 
eliminates AppleWorks internal memory limits 
allowing it to recognize up to 8 megabytes of 
desktop workspace. You can increase the 
limits from only 7,250 lines to 22,600 lines in 
the word processor and from 6,350 records 
to 22,600 records in the database. The 
Expander allows all of AppleWorks, induding 
print functions, to automatically load into 
RAM. The clipboard size will increase from 
255 to 2,042 lines maximum. Gs-RAM will 
automatically segment larger files so you can 
save them onto multiple floppies. And 


Gs-RAM provides a built-in print buffer that 
allows you to continue working in Apple- 
Works while your printer is still processing 
text You can even load Pinpoint or Macro- 
Works and your favorite spelling checker into 
RAM for instant response. 
Grow by Kilobytes or Megabytes 

We offer Gs-RAM in two configurations so 
you can increase your memory 256K at a 
time (Gs-RAM) or a megabyte at a ime 
(Gs-RAM Plus). Both are IlGs compatible and 
both come with our powerful enhancement 
software. Gs-RAM can hold up to 1.5 MEG of 
256K chips and Gs-RAM Plus can hold up to 
6 MEG using 1 MEG chips. And since both 
use standard RAM chips (not high-priced 
SIMM'’s), you'll find expanding your Gs-RAM 
Or GS-RAM Plus easy, convenient, and very 
economical For further expansion, you can 
plug a 2 MEG “piggyback” card into the Gs- 
RAM’s expansion port for up to 3.5 MEG of 
total capacity. Or up to a whopping 8 MEG 
on Gs-RAM Plus. If a Gs-RAM owner Outgrows 
3.5 MEG, he can easily upgrade to Gs-RAM 
Plus for a nominal charge. 
Permanent Storage for an 
“Instant On” Apple 

With our RamKeeper™ back-up option, 
your Gs-RAM or GS-RAM Plus will retain both 
programs and data while your [Ics is tumed 
off Now when you tum your IIcs back on, 
your favorite software is on your screen in 
under 4 seconds! With RamKeeper you can 
divide your IIGs memory into part “electronic 
hard disk,” and part extended RAM. Even 
change the memory boundaries at any 
time—and in any way—you want Because 


“In quality, 
performance, 
compatibility, 
expandability and 
support, Applied 
Engineering's GRAM 
and GsSRAM Plus are 
number one.” 


Steve Wozniak, the creator 
of Apple Computer 


Instant On” memory utth the all new Gs-RAM! 


Applied Engineering has the most experience 

in the industry with battery-backed memory 

for the Apple, you are assured of the most 

reliable memory back-up system available. 

And in the word of battery-backed memon, 

Retiability is everything, That's why Applied 

Engineering uses state-of-the-art “GEL-CELL’s” 

instead of Ni-Cad batteries (if Ni-Cads aren't 

discharged periodically, they lose much of 

their capacity). RamKeeper has about 6 

hours of “total power failure” back-up time. 

That's 6 times the amount of other systems. 

But with power from your wall outlet, 

RamKeeper will back-up Gs-RAM, Gs-RAM 

Plus, or most other IIGs memory cards 

indefinitely. Should you ever have a “total 

power failure,” RamKeeper switches to its 

6-hour battery. When power retums, Ram- 

Keeper will automatically recharge the battery 

to full power. RamKeeper incorporates a 

dual rate charger, status LE.D.’s, and ad- 

vanced power reducing circuitry. RamKeeper 

comes complete with battery, software, and 

documentation. 

GS-RAM’s Got it ALL! 

e 5-year warranty — parts & labor 

e 6 RAM banks (most cards have 4) 

e Memory expansion port 

e ROM expansion port 

e Ultra-fast disk caching on ProDOS 8 AND 
ProDOS 16. 

e Expands AppleWorks intemal limits 

e Includes hi-res self test 

e No soldered-in RAM chips 

e Expandable to 8 MEG 

e No configuration blocks to set 

e RamKeeper back-up option allows 
permanent storage of programs & data 

e 15-day money-back guarantee 

e Proudly made in the USA 


GS-RAM with 256K 
GS-RAM with 512K 
Gs-RAM with 1 MEG 


GS-RAM with 1.5 MEG 
GS-RAM with 2.5 to 3.5 MEG 
GS-RAM Plus with 1-8 MEG 
RamKeeper Option 


Order today! 

See your dealer or call Applied Engineering 
today, 9 am. to 11 p.m 7 days Or send 
check or money order to Applied Engineering 
MasterCard, VISA and CO.D. welcome. 

Texas residents add 7% sales tax. Add $10.00 
outside USA 


HE. APPLIED ENGINEERING” 


The Apple enhancement experts. 
(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 


Prices subject to change without notice. 


GS-RAM, Gs-RAM Plus and RamKeeper are tademarks of Applied Engineering Other brands and product names are registered mademarks of their respective holders. 
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1000 *SAVE AW.SRC.V8N6 


1020 *##pissing line above was ".LIST MOFF", which 
1030 *##shrinks the listing by not listing macro expansions 
1040 aecobh Variab aera -o---- 


0900- 1050 BUF.9 -EQ $0900 
OA00- 1060 STR.A00 -EQ $0A00 
OEA7- 1070 X.OEA7 -EQ $0EA 
OF14- 1080 SEGMENT. ADDRESS -E OF 1 
OFCE- 1090 X.OFCE -EQ $OFCE 
OFF3- 1100 X.OFF3 -EQ 30FF3 
OFF5- ie EREE . MEMORY . xx xxK ~EQ $0FF5 
1FF5- 1130 DISPLAY.ON.LINE. 23 -EQ $1FF5 
1D35- 1140 AW. KEYIN ~EQ $1D35 
B700- 19? X.B700 -EQ $B700 
1160 %---ProDOS Global Page----------=- 
BFOO- te MLI -EQ $BF00 
BF58- 1180 PRODOS.BITMAP -EQ $BF58 
1190 #---Subroutines from SEG.00 or SEG. XM--- 
DO02- 1200 Measure. free.Memor -EQ $D002 
D005- 1210 Download. from. AuxRAM.or.Memory.Card .EQ $D005 
DO11- 1220 Upload. to.AuxRam.or.Memory.Card -EQ $D011 
1230 #---Page Zero Variables---------- 
85- 1240 Z. -EQ $85 
8D- 1250 SEGLOAD.ERROR.FLAG -EQ $8D 
QA- 1260 PO -EQ $39A 
9E- 1270 Pa -EQ $9E 
9OF- 1280 P -EQ F 
A4d- ea DISPLAY. ACTIVE. FLAG -EQ $A4 
1310 ~PH $1000 
1320 @aseces—a ou eces ose sn ose eee 
1 Bo -MA MLI.SL Macro for MLI calls 
1340 JSR aay 
1350 % #$}1,SLIOB. J2 
iaeu -DO J#>2 If 3rd parameter, include these lines 
1 io BEQ :1 -..nmo error reported by MLI 
13 : INC SEGLOAD.ERROR.FLAG error, so set flag 
1 80 FIN 
19 enn 
vige .MA HS Macro to shrink listing only 
tt i 
a, ee cee 
Hy te -MA MSG Macro to make a string with first byte 
1480 -DA #;1-#-1 giving the length, rest is ASCII. 
1490 -AS #1" 
10 |) eM 
1520 @ss2s5-—--sosee-e asec esa eee 
1000= 4C c2 3E 1200 JMP $3E25 RELOCATE. AND. START+$1000 
nee 4C 86 11 1540 JMP CALL.FCR.AWPROGRAM. DISK 
1000- 4C Al 11 1220 JMP $11A1 LOAD. PROGRAM. SEGMENT.A 
1009- 4C 41 13 1560 JMP $1341 APPEND. STRINGS 
130e: AE Ge 13 1209 aM f13be CLEA. Aan ezxpon 
1012= NC 9D 13 1590 JMP 1p2p CLR.LINE.X.TO.LINE.Y 
a ORS NC D1 1 7000 JMP $14D1 DISPLAY.STRING (A) bytes, starting at $80,81 
1018= 4C 9D 7 1610 JMP ee CONVERT.A.TO.RJBF. STRING 
101B- 4c 15 18 1620 JMP $1815 HANG 
101E- 4C D1 ui 1630 JMP He DIVIDE.PO.BY.P2 
1021- 4C 18 18 1640 JMP $1818 BEEP.AND.CLEAR.KEYBUF 
1024- 4C 23 18 1650 JMP $1823 MOVE.CURSOR.TO. XY 
1027- 4C 37 18 1660 JMP $1837 
102A- 4C 2 18 1070 JMP $1842 
102D- 4C 20 1 16 O JMP $1 20 
13ae- Ae OS TB ego ue Ses 
18 B- uC tt 1 1439 JMP | ik COPY. SCRN .LINE.TO.0900 
- \C 1 20 JMP GET. A. PARMS 
1O3F- HC 77 a 17hO IMP SIRT? 
1042= 4C FC 1A 1750 JMP SET. PRODOS .BITMAP 
1045= 4C 00 1B 1760 JMP CLR.PRODOS.BITMAP 
ae ac oo i 115 mete Hee DRAW. TOP.AND.BOTTOM.LINES 
104E= 4C 3A 1B Wes JMP $1B3A MULTIPLY.X.BY.Y 
1051- 4C i 1B 1800 JMP $1B4YE MULTIPLY.PO.BY.P2 
1054- 4C 84 1B 1810 JMP $1B84 MOVE.BLOCK. DOWN 
193K- AE BE TB 1858 ah HIBHE HOvE-eLocK-u 
105D=- 4C Fi 1B 18h0 JMP $1BF1 WAIT.FOR.SPACE.RETURN.OR.ESCAPE 
1959- 4S GF 15 1833 ME fgg) wien. Sntves 
1066- 4C 35 1D oie JMP $1D35 AW.KEYIN 
1069- 4C 80 1E 1880 JMP $1E50 MOVE.CURSOR.TO.TCOL.TROW 
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106C- 4C 8A 1E 1890 JMP $1E8A 
106F- 4C BY 1E 1900 JMP $1EB4 MAP.LOWER.TO.UPPER char in A-reg 
1072- HC BF 1E 1910 JMP $1EBF FILTER.LC.TO.UC string 
1075- 4C D9 1E 1920 JMP $1ED9 COMPARE.STRINGS 
1078- 4C F8 1E ea JMP $1EFS MOVE.STRING 
107B- 4C 3E 1F 1940 JMP ange DISPLAY. AT 
1O7E- 4C 29 20 1950 JMP $2029 
1081- 4C D1 1F 1960 JMP $1FD1 DELAY.A.TENTHS 
1084~ 4C EO 1F HE JMP $1FEO CLEAR .KEYBUF 
1087- 4C 93 20 1980 JMP $2093 DISPLAY.STRING.PO 
108A- 4C EQ 1F 1330 JMP SOLE DISPLAY . TOKEN .X 
108D- 4C AE 20 2000 JMP $20A 
1090- 4C BE 20 2010 JMP $20BE 
O8e 4C F5 1F 2020 JMP DBE DISPLAY .ON.LINE. 23 
1096- 4C D6 20 enrG = JMP $20D 
are # CONSTANTS & VARIABLES 
1099- 00 OA 2070 HANDLE.STR.A0O ~DA STR.AOO 
109B- AT 10 3000 HANDLE.SEGMENT.TABLE .DA SEGMENT.TABLE 


2100 : Holds result after calling CONVERT.A.TO.RJBF.STRING 
2110 # but this result is aebereneey never referenced. 
109D- 2120 RJBF. STRING >HS 03.20.20 


2140 : 10A1 holds 00, 01, O2, or 03, indicating which of segments 
2150 # » or 2k was the most recently loaded. 
2160 # 06 means none of these have yet been loaded. 
2170 # 01 means segment 1 (Data Base) 
2180 # 02 means segment 16 (Word Processor) 
2190 # 03 means eepnent 24 genre Sheet) 
10A1- 00 2200 CURRENT.APPLICATIO HS 00 
10A2- osc e APPLICATION . SEGMENT ..LIST >HS FF.01.10.18 
2230 * Segment Table 
2240 # There are 43 progres segments in files SEG.MO and SEG.M1 
2250 *# Four bytes in this table for each segmen 
2260 # Byte ue stertane page t rete ee nt in 
2270 & Age of segment (00= oaded, FPoldest) 
2280 # Bytes $i 00 if must be loa ly from disk 
3230 . xxx if in RAM or Aux RAM 
10A6- FF 2310 CURRENTLY.LOADED.SEGMENT .HS FF 
2320 SEGMENT. TABLE 
10AT- 2330 >HS 30.000000 rag 1 (babs seg 00 
10AB- 2340 >HS 35.000000 Seg a Base) 
10AF- 2350 >HS 45.000000.45.000000 Segs 0 o3 
10B7= 2360 >HS 45.000000.45.000000 Segs O80 
10BF- 2370 >HS 45.000000.4E.000000 Segs 06,07 
10CT- 2380 >HS 4E.000000.4A.000000 Segs 08,09 
10CF- 2390 >HS 4E.000000.4E.000000 Segs 0A,0B 
10D7- 2400 >HS 4E.000000.53.000000 Segs OC,O0D 
10DF- aise e >HS 4E.000000.00.000000 Segs OE, OF 
10E7- 24 30 >HS 35.000000 Seg 10 (Word Processor ) 
10EB- 2440 >HS 3D.000000.3D.000000 Segs 11,12 
10F 3- 2450 >HS 40.000000.00.000000 Segs 13,14 
10FB- 2460 >HS 00.000000.67.000000 Segs 15,16 
1103- a 5 - >HS 77.000000 Seg 17 
1107- 2490 >HS 3-990000 Seg 18 (Spread Sheet) 
110B- 2500 >HS -000000.53.000000 Segs 19,1 
ee 2510 >HS 53.000000.53.000000 Segs 1B, 1C 
111B- 2520 >HS 53.000000.53.000000 Segs 1D,1E 
eee 2530 >HS 2 -000000.45.000000 Segs IF, 20 
112B- 2540 >HS -000000.64.000000 Segs 21,22 
1133- 2550 >HS 64.000000.64.000000 Segs 23,24 
Lee 2560 >HS 64.000000.64.000000 Segs 25,26 
1143- 2570 >HS 64.000000.64.000000 Segs 27,28 
114B- 2580 ait 64000000. 64. 000000 Segs 29,2A 
1153- 2590 S 64.000000 Ser ne 
BO- ayer SEGMENT. TABLE. SIZE .EQ *-SEGMENT.T E 
1157- 00 Scans POSITION.IN.STRING .HS 00 Used by DISPLAY.STRING 
2640 : Note *##SECRET*® limitation: the pathname 
2650 to the SEG.MO and SEG.M1 files is limited 
2660 # to a total of 29 a Be including the "/*, 
1158- 01 2F 2670 SEGMENT.PATHNAME .HS 01. 
115A- 2680 -BS 28 
2690 #--------------------------~----- 
1176- 01 2700 KEYIN.CURSOR.TYPE .HS 01 OO=sunderline, Oi= cae 
ae 01 2710 KEYIN.CURSOR.FLAG .HS 01 OO=no cursor, Ol=cu 
1178- 00 2720 SCROLL.DIRECTION .HS OO Used by DISPLAY. STRING 
1179- 00 st er BYTES .IN.STRING -HS 00 Used by DISPLAY. STRING 
vine 2750 KEYBUF -BS 10 
1184- 00 2760 KEYBUF.IN .HS 00 
1185- 00 2770 KEYBUF.OUT .HS 00 
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NowApple speaks IBM. 
Three times 


Introducing 
PC Transporter.” 
The Apple® II expansion 
board that lets you 
run MS®-DOS programs. 
Now your Apple II can run 
over 10,000 programs you could 
never use before. Like Lotus® 
1-2-3® MultiMate® dBASE III 
PLUS® Even Flight Simulator® 
With PC Transporter, MS-DOS 
programs run on your Apple II 
like they do on IBM® PC's or 
compatibles. With one important 
difference. PC Transporter runs 
most of those programs three 
times faster than an IBM PC/XT® 
Plus, to speed through number- 
crunching tasks, you can use 
our optional 8087-2 math co- 
processor chip. It plugs into a 
socket on the PC Transporter. 
Less expensive than an 
IBM clone. 
Sure, a stripped-down IBM 
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clone costs about the same as 
the PC Transporter. But the pe- 
ripherals it takes to get the clone 
up and running make the clone 
cost about three times what our 
American-made card costs. 

You don’t have to buy new 
hardware to use PC Transporter. 
Works with the hardware you 

already own. 

With PC Transporter, MS-DOS 
programs see your Apple hard- 
ware as IBM hardware. You 
can use the same hardware you 
have now. 

With IBM software, your Apple 
hardware works just like IBM 
hardware. Including your drives, 
monitors, printers, printer cards, 
clock cards and serial clocks. 


i 
i 


J 


faster than IBM. 


You can use your [le® or IIGs™ 
keyboard with IBM software. Or 
use Our optional IBM-style key- 
board (required for the II Plus). 

You can use your Apple mouse. 
Or an IBM compatible serial 
mouse. 

Plenty of power. 

PC Transporter gives you as 
much as 640K of user RAM 
and 128K of system RAM in the 
IBM mode. 

PC Transporter also is an Apple 
expansion card, adding up to 
768K of extra RAM in the Apple 
mode. The Apple expansion alone 
is a $300 value. 

Easy to install. 

You can install PC Transporter 
in about 15 minutes, even if 
you’ve never added an expansion 
board. You don’t need special 
tools. Simply plug it into an Apple 
expansion slot (1 through 7 ex- 
cept 3), connect a few cables and 
a disk drive, and go! 
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= WIPES 


PC Transporter taps into the worlds largest 
software library. Now your Apple can 

run most of the IBM software you use 

at work. And it opens a new world of 
communications programs, games and 
bulletin boards. 


A universal disk drive 
controller. 

PC Transporter supports 3.5” 
and 5.25” MS-DOS and ProDOS 
formatted diskettes. You’ll shift in- 
stantly between Apple ProDOS 
and IBM MS-DOS. 

You'll need our versatile 5.25” 
360K drive system to run IBM 
applications from 5.25” floppy 
disks. Use your Apple 5.25” drive. 
for Apple 5.25” disks. 

An Apple Disk 3.5 Drive will 
support the new 3.5"disks 
whether they’re IBM MS-DOS 
formatted or Apple ProDOS for- 
matted. The PC Transporter acts 
like an Apple Disk 3.5 Drive disk 
controller for IIGs, He, and II 
Plus users. 

PC Transporter supports 
up to 5 drives in a number of 
combinations. 

For example, you can connect 
a 5.25 Applied Engineering 360K 
dual-drive system directly to the 
card. Then plug two daisy-chained 
Apple 3.5 Drives (not the Apple 
UniDisk 3.5) to the dual-drive 
system. For a fifth drive, use a 
ProDOS file as an IBM hard disk. 


PC Transporter controls Apple and IBM 
compatible disk drives. It supports 3.5" and 
5.25' MS-DOS and ProDOS formatted 
diskettes. 


Versatile data storage. 

PC Transporter reads MS-DOS 
and translates it into Apple native 
ProDOS. You can store IBM pro- 
grams and data on any ProDOS 
storage device including the 
Apple 3.5 Drive, Apple UniDisk™ 
3.5, Apple 5.25” drive, SCSI or 
ProDOS compatible hard drives. 
(You can use the Apple UniDisk 
3.5 with its own controller card 
for storing programs and data, but 
not for directly booting an IBM 
formatted disk. ) 

You can even use our 360K PC 
compatible drive for ProDOS 


Make your Apple speak IBM. 


PC Transporter memory choices. 


RAM in RAM in 

Apple mode: IBM mode: Price: 
384K 256K $489.00 
512K 384K 529.00 
640K 512K 569.00 
768K 640K 609.00 


Note: The IBM mode is 128K less because 
the PC Transporter uses 128K for system 
memory. 


lcs Installation Kit 


He/Il Plus 
Installation Kit 39.00 


PC Transporter Accessories 


5.25” IBM Format 360K 
Drive Systems 
Single-Drive System 
Dual-Drive System 399.00 
Half-Height Drive 135.00 
(add to Single-Drive system to make 


Dual-Drive ) 

IBM-Style 139.00 
(required for Apple II Plus. Requires 
IBM Keyboard Cable. ) 

IBM Keyboard Cable 34.00 

Sony RGB Monitor 499.00 

39.00 


Analog RGB Cable 
39.00 


49.00 


269.00 


(for use with Sony monitor ) 
Digital RGB Cable 


(for use with Sony monitor ) 


Digital RGB Adapter 
ColorSwitch ; 
(included with Hcs Installation Kit) 


128K ZIP 


(Ile and II Pius only ) 


See your dealer or call or send 
check or money order to Applied 
Engineering. MasterCard, VISA and 
COD welcome. Texas residents 
add 6%% sales tax. 


PC Transporter produces better IBM graphics 
than IBM. Analog is sharper than digital 
$o with an analog RGB monitor PC 
Transporters CGA graphics and text are 
superior to IBM digital display — even 
while running IBM software! 

And, you can also use an Apple composite 
monitor in IBM text or graphics mode. 


storage and a 143K Apple 5.25” 
drive for MS-DOS storage. 
Created by Apple's original 
designers. 
The brains behind PC Trans- 
porter were also behind your 


Apple IL. 


The PC Transporter design 
team includes the former project 


managers for the creation of the 
Apple IIe and IIc. The co-designer 
of the Apple II disk controller. 
And the first full-time Apple 
programmer and author of the 
ProDOS operating system. 

So you know the PC Trans- 
porter and your Apple were made 
for each other. 

Support and service from the 
leader in Apple add-ons. 

Applied Engineering sells more 
Apple peripheral boards than any- 
one else — including Apple 
Computer. So you know we'll be 
around after the sale. 

PC Transporter comes with a 
15-day money back guarantee. If 
you're not fully satisfied after 
using it, return it for a full refund. 
PC Transporter also comes with a 
l-year warranty. 

How to get your PC 
Transporter today. 

See your dealer. Or call Applied 
Engineering any day between 
9 am. and 11 p.m. CST at 
214-241-6060. 


Vas wa Applied Engineering 
The Apple enbancement experts. 


PO. Box 798, Carrollton, TX 75006 
214-241-6060 


A Division of AE Research Corporation. 


Apple HI Pius must be FCC Cortified. IBM and PUXT are registered trademarks of Intemational Business Machines. Latus and 1-2-4 aru registered trademaris of Lotus Develupment Cocporation. MultiMate and dBASE TIE PLUS arc rostered 
trademarks of Ashton: Tatc, Inc, MS and Flight Simulator are registered trademaris of Microsoft. Apple Ile and ProDOs arc copistered trademarks and UGs and UaiDisk ase trademarks of Apple Computer 
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2790 * Subroutine to request eonntsne of the AppleWorks 
2800 # Program Disk, so a SEG.xx file can be opened. 


0 
2820 ® (1186) 1003 124B 275F 
oe Re Perera eeboot anes 


itRee AX Bee aa DISPLAY. ACTIVE.FLAG Save Display lockout flag 
1189- AQ 00 2860 LDA #0 Allow arep tay 
118B- 85 Ad 2870 STA DISPLAY. ACTIVE.FLA 
118D- 20 F5 1F 2880 JSR DISPLAY.ON.LINE. 23 "Place the AppleWorks 
1190- C1 1 2890 * MSG.. 1 PROGRAM disk in Drive 1 and press Return." 
1192- 20 35 1D 2900 JSR AW.KEYIN Wait for Any Key 
1195= AQ 00 2910 LDA #0 Indicate Program Disk mounted 
1197- 8D CE OF 2920 STA X.OFCE 
119A- 68 2930 PLA Restore Display lockout flag 
119B- 85 Ad 29 40 STA DISPLAY. ACTIVE.FLAG 
119D- 60 Bit P RTS 
119E- 2970 SEGMENT.INDEX .BS 1 
119F- 2980 SEGMENT.SAVEX .BS 1 
11A0- TaN SEGMENT . NUMBER -BS 1 
010 ®  (A)=Segment Number or Segment Number + $80. 
3010 # There are 43 segments, numbered 1 to 43. 
030 & Segments 1-9 are in file SEG.MO, and 
: segments 10-43 are in file SEG.M1. 
00 * The Segment is loaded at $xx00, where xx 
3070 # is tne first byte for the entry in the 
4090 ; Segment Table. 
100 # Bit 7 of A controls the execution option. 
3120 ad If 0, then exit with JMP $xx02 
120 # If 1, then exit with an RTS. 
3130 : (X)=sFunction Number in segment 
3120 * (11A1) 1006 1877 
160 LOAD. PROGRAM. SEGMENT.A 
11A1=- 8D AO 11 3170 STA SEGMENT .NUMBER 
11A4- 8E OF 11 3180 STX SEGMENT. SAVEX 
a OA 3130 ASL #4 to get index into Segment Table 
11A8=- OA 200 ASL 
11A9- 8D 9E 11 3210 STA SEGMENT. INDEX 
220 #---Increment all entries-------- 
11AC- A2 BO 230 LDX #SEGMENT.TABLE.SIZE 
11AE- CA 240 .1 DEX For X = $AC to $04 step -4 
11AF- CA 3229 DEX 
11B1- CA 570 DEX 
nieeo a . 10 4200 Bie alk eames 
11B7= DE A& 10 3300 DEC SEGMENT . TABLE+1,X max value is $FF 
HBC: 53 98 33-2 Gee fe 
330 #---Clear indexed entry---------- 
Tici- Ad 00 || 3380 Ago 
11C3- 9D AB 10 3360 STA SEGMENT. TABLE+1,X 
0 "orn ee Deen of loaded segment-- 
legs 39 AO 11 3380 A ae 
- TE 3390 AND #$7F 
eg ee aa 10 3iG0 a EERSTE SOM ED Se oeN 
11D0= AC 18 13 3420 JMP LOAD. EXIT .BY. OPTION Already loaded, so we're done! 
11D3- 8D A6 10 3430 .3 STA CURRENTLY. LOADED. SEGMENT 
\hQ #---Get Load Address-~---~--------- 
11D6= AE 9E 11 3450 LDX SEGMENT. INDEX 
1p - te A 10 i : EDt GMENT . TABLE , X 
11IDE= 4C 23 1 480 JMP LOAD. EXIT. RTS -.-no such segment, quit now 
11E1= 8C 2D 1 490 .4 STY SLIOB. READ. SEGMENT+3 
11E4- 8C 29 1 500 STY .10+1 In call to Downloader Subroutine 
11E7- 8C OE 13 510 STY SL.ADR+1 
11EA= 8C 22 1 520 STY SEGMENT .EXECUTION .VECTOR+2 
530 #---Is this acement $20?--------- 
I1EF- DO 05 3850 BNE (2. 
11Fi- AE A]? OE 3560 LDX X.OEA7 
11F4- DO 3 570 BNE .11 oo Exit 
3580 es | track of application---- 
ares ae on 10 3800 a5 a CURRENT . AP PLICATION 
11FB- DD A2 10 3610 CMP APPLICATION .SEGMENT . LIST , X 
ube aa Gh $e og Bg) octet 
1202= DD A2 10 35i0 7 CMP APPLICATION .SEGMENT.LIST,X 
ae no 
1306- DO F8 3870 BNE .7 
120C- 8E Ail 10 3690 .8 STX CURRENT. APPLICATION 
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3700 #---Decide how to load it-------- 
120F- AE 9E 11 3710 .9 LDX SEGMENT. INDEX If address in SEGMENT.TABLE is 0000, 
1212- BD AJ 10 3720 LDA SEGMENT. TABLE+2,X then load from Program Disk; 
Pars 8D 14 OF 130 STA SEGMENT. ADDRESS otherwise, download from Ram 
1218- 1D 10 3! 0 ORA SEGMENT. TABLE+3,X 
121B- FO 10 750 BEQ LOAD. SEGMENT . FROM. DISK 
121D- BD 10 3780 LDA SEGMENT. TABLE+3,X 
1220- 8D 15 OF Ai STA SEGMENT. ADDRESS+1 
ieee 20 DO 3780 JSR Download. from. AuxRAM.or.Memory.Card 
1220- 14 OF 3730 -DA SEGMENT. ADDRESS 
1228- 00 3800 .10 -HS 00.00 ce BY O filled in by peer 
122A= 4C 18 13 340 ii JMP LOAD.EXIT.BY.OPTION soe Bxl 
33 0 LOAD. SEGMENT.FROM.DISK 
yeabe ne : 11 3Ra0 TH aaa Change name end to 'MO' or ‘M1! 
ioae. ic 3) 11 ap0° ah SEGMENT . PATHNAME—1, ¥ 
1337 ec A 10 ie a Oe eo eee 
123C=- 90 02 900 BCC .1 Segments 1-9 from SEG.MO 
ta A 1 830 LDA #'1! Se nts 10-43 from SEG.M1 
1240- 9 8 11 20 .1 STA SEGMENT. PATHNAME , Y 
30 igre ecumee to open SEG.Mx------- 
1243- 0.2 >MLI.SL C8,OPEN Open the file 
124B- 20 86 11 0 JSR CALL.FOR. AWPROGRAM. DISK 
124E- HC 43 «12 33h0 ‘ JMP .2 
1251=- AQ 00 3320 3 LDA #0 Indicate Program Disk mounted 
Mere 8D CE OF 4000 STA X.OFCE 
1256- AD 29 3 4010 LDA SLIOB. OPEN+5 copy File RefNum to IOBs 
1259=- 8D 2B 13 4020 STA SLIOB. READ. SEGMENT+1 
125C- 8D 32 13 4030 STA SLIOB. CLOSE+1 
1epe 8D 13 4040 STA SLIOB. SETMARK+1 
1262—- 8D 3A 13 4050 STA SLIOB. READ. INDEX+1 
1265= 20 00 1B 4060 JSR CLR.PRODOS .BITMAP 
1268- AQ 00 4070 LDA #0 Clear Error Flag 
126A- 85 8D 4080 STA SEGLOAD.ERROR.FLAG 
4090 &--- sad Segment Index----------- 
4100 #® $8C bytes at beginning of SEG.Mx file 
4110 ® into buffer at $0900. 
126C- 4120 LI.SL CA, READ.INDEX,S 
410 #---Form segnum®3 for index------ 
1276=- AD A6 10 4140 LDA CURRENTLY.LOADED. SEGMENT 
1DFh- 98 We0 cic 
tones oe A6 10 neh aay CURRENTLY. LOADED. SEGMENT 
4190 #---Get Mark and bengeh eoewoonn-e 
1Shi- BS OR D4 STA E i ania 
Monee AS 00 neeo See #0 Start with lsb 
1286- BD 00 09 4240 .4 LDA BUF.900,X aye of Mark for this segment 
1289- 99 36 13 4250 STA SLIOB. SETMARK+2 
128C- BD 03 09 4260 LDA BUF.900+3,X Byte of Mark for next segment 
128F- FD 00 09 4270 SBC BUF.900,X Byte of Mark for this segment 
1292- 99 2E 13 4280 STA SLIOB. READ.SEGMENT+4,Y Byte of Length 
12 22 E 4290 INX 
1587- Ce OR SIO DEC PO 
1299- DO EB 4320 BNE .4 More bytes 
y 30 #~~~Read the Se Nt ---- ee nn 
129B- 4340 >MLI.SL CE,SETMARK,S Set Mark 
12A5- 4350 >MLI.SL CA,READ.SEGMENT,S Read Segment 
12AF- 4360 >MLI.SL CC,CLOSE,S Close File 
12B9- 20 FC 1A ney JSR SET. PRODOS .BITMAP 
12BC=- A5 8D 4380 LDA SEGLOAD.ERROR.FLAG 
12BE- DO 63 1329 BNE LOAD.EXIT.RTS ..-Error(s), give it up. 
4KO0 #---Save rae ha of segment------- 
Mere A Be aioe EDA : Build pointer to segment in P4,P5 
eee. ae Se 13 ey A Se UR AEC Ueno noses 
12C9=- AO 00 ay LDY #0 Get first two bytes 
12CB- B1 9E 4460 LDA (P4),Y which are end address + 1 
12CD- 8D OF 13 4470 STA SL.LEN and subtract load address 
12D0- C8 yy INY to get length 
12D1- B1 9E 4490 LDA (P4),Y (I €Ehought we already knew 
1SpR ge OF Were SBC PS Decrenerny 
12D6- 8D 10 13 4520 STA SL.LEN+1 
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hee #.--See if room to save segment in RAM--- 
12D9- AD 9E 11 4540 LDA SEGMENT. INDEX 
fee ee “3 reat ris se Build pointer to vector in SEGMENT.TABLE 
\SEo- BD OB 13 4260 STA SNSEG 
ae - a AG 10 1230 rite a een 
12EA- 8D OC 3 4610 STA SL.SEG+1 
12ED- 20 02 DO 4620 JSR Measure. free.Memory 
12FO0- AD F6 OF ieee LDA FREE.MEMORY. xxxxK+1 If non-zero, at least 256K 
12F3- DO OE 4640 BNE .5 -..which is plenty! 
12F5- AD F5 OF 4650 LDA FREE.MEMORY. xxxxK 
12F8- C9 10 4660 CMP #16 Is there at least 16K? 
12FA- BO 07 1239 BCS .5 ---Yes, plenty 
lett A tees At Convert to # pages free 
2FE- CD 10 13 4700 CMP SL.LEN+1 Compare to what is needed 
ans aC Me ra 5 ay rs aie oe TION -»e-not enough room 
308- 8D F3 OF 4730 STA X.OFF3 
308- 20 11 DO 4740 JSR TH ahs ahaa eosin eA de er aA 
OB- 00 00 4220 SL.SEG .HS 00.00 Address in SEGMENT.TABLE of vector 
OD- 00 00 4760 SL.ADR .HS 00.00 Load Address of Segment 
OF- 00 00 eet SL.LEN .HS 00.00 Length of Segment 
333- 88 F3 OF aroG STA X.OFF 
= e eee a n (eo) e eee 
318 85 85 se i STA fall into LOAD.EXIT 
4820 LOAD.EXIT.BY.OPTION 
318- AE 9F 11 4830 LDX SEGMENT .SAVEX 
31B- AD AO 11 4840 LDA SEGMENT .NUMBER 
31E- 30 03 4850 BMI LOAD.EXIT.RTS 
4860 SEGMENT.EXECUTION.VECTOR 
320- 4C O02 FF 4870 JMP $FFO2 Page value filled in by program 
4880 # so JMPs to $xx02 in segment. 
4890 & 
1323- 60 ero LOAD. EXIT. RTS RTS 
420 S---OPEN [0 Bq---------------- o--- 
1324- 03 58 11 4930 SLIOB. OPEN 
1357 00 B7 4Q4o -DA #3,SEGMENT.PATHNAME ,X.B700 
1329=- 00 Heee -HS 00 Open RefNum 
nets #22-READ [0 Be------- nee ee == 
4980 SLIOB. READ. SEGMENT 
132A- 04 4990 -DA #4 
132B- 00 5000 -HS 00 RefNum 
132C- 00 00 5010 ~DA $0000 Load Address 
132E- 00 38 5020 -DA $3800 Load Length 
- ‘ ctual Leng 
1330- 00 00 aH ; : DA $0000 Actual L th 
2090 #---CLOSE I0B-------------------- 
5060 SLIOB. CLOSE 
332° 01 5070 -DA #1 
3- 00 ay -HS 00 Ref Num 
5100 #---SETMARK IOB------------------ 
rapt SLIOB. SETMARK 
1334—- 02 120 -DA #2 
1335- 00 5130 -HS 00 RefNum 
1336- 00 00 00 eia0 ‘ -HS 00.00.00 
2180 #---READ I0B~-------------------- 
5170 SLIOB. READ. INDEX 
1339- O4 5180 -DA #4 
= e e um 
er 6G 09 8C 5190 HS 00 RefN 
- 00 00 00 peue ‘ -DA BUF.900,$008C, $0000 
e536 -PH $13C1 
13C1- osie MSG..1 ae "Place the AppleWorks PROGRAM disk in Drive 1 and press Return. " 
5250 #q----- ne oe nn ee een eee 
2586 »PH $1AFC 
2ohe @ ae 1042 ieee 24C6 Shor AG 2T8F 2B2E 2CF3 
5280 ® (1B00) 1045 1265 23F1 249F 26E4 2771 2960 2CEA 
2290 SET. PRODOS.BITMAP 
1AFC- AQ FF 5300 LDA #$FF Protect all main RAM from ProDOS 
1AFE= DO 02 5310 BNE SC.BM ~-- always 
5320 CLR.PRODOS.BITMAP 
1B00- AQ 00 5 2° LDA #$00 De-protect all main RAM 
1B02= A2 13 5340 SC.BM LDX #$13 Affects RAM from $0800 thru $9FFF 
1BO4- 9D BF 5350 .1 STA PRODOS.BITMAP ,X 
1BO7- CA 5360 DEX 
1B08- DO FA 5 4° BNE .1 
1BOA- 60 2 35 
2180 $e eee cactoescececueeeteue 
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Dissecting AppleWorks SEG.MO and SEG.Ml Files... 
--eBOb Sander-Cederlof 


The AppleWorks Program disk contains two files of type $00, 
called SEG.MO and SEG.Ml. These contain the actual code for 
the three applications (data base, word processing, and 
speadsheet) as a series of overlay segments. 


Th:se two files could really be just one, and I don't 

un jerstand why they are not. It takes extra logic inside 
AppleWorks to manage them as two files, and the code would be a 
little simpler if there were only one. As it is, the first 
nine of 43 overlays are on SEG.MO, and the remaining 34 are on 
SE 3.Ml. 


Th2 overlay loader first decides which file to open, and then 
reads in the first 140 bytes of that file. There is a 
“directory” of sorts at the beginning of each file: one 3-byte 
value for each segment in the file. The 3-byte value is the 
offset within the file where the overlay begins. For example, 
looking at the beginning of the SEG.MO file for AppleWorks 
version 1.3, in 3-byte groups, I see: 


00 00 00 
21 00 00 
4c 30 00 
9A 35 00 
and so on 


This means that overlay segment 0, which does not really exist, 
begins at offset $000000 in the file. Overlay segment 1 begins 
at $000021, or with the 33rd byte of the file. Segment 2 
begins at $034C in the file, and so on. By subtracting the 
beginning address of the segment I want to load from the 
address of the begining of the next segment I get the number of 
byces in the desired segment. 


I decided to write a program to analyze these file headers for 
me, and print out a list of file offsets and lengths for each 
segment. The program follows, but before describing it I need 
to mention a table inside APLWORKS.SYSTEM. A table I call 
“SEGMENT .TABLE" begins at $10A7 (in version 1.3). There are 
four bytes for each segment in this table. The first of each 
group of four is the page number where the corresponaing 
segment should be loaded. Entries for segments SOF, $14, and 
S15 are zero, meaning these segments do not exist. Segment S00 
does not exist either, but it is eliminated by other means. 
The other three bytes of each 4-byte group are used by the 
overlay loader to keep track of which overlay segments are 
already in RAM, in AuxRAM, or in a RamFactor type card. 


I decided to copy the loading page numbers from this table into 
my little analysis program, so that it could also print out the 
loading address for each segment. You can see my copy at lines 
1860-1930. I have added three labels to indicate which overlay 
segments belong to which of the three applications. The Data 
Base code is in segments $01 through SOF, the Word Processor in 
Segments $10-17, and the SpreadSheet in segments $18-2B. At 
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least that is what I think is true, someone correct me if you 
Know better. 


My analysis program has several interesting wrinkles, of 
interest beyond the overall function of the program. I have 
defined two useful macros in lines 1070-1180. The first one, 
PRINT, generates a JSR PRINT followed by a zero-terminated 
String. As long as the string is purely printable ASCII 
Characters which will fit in a .AS directive, the macro works 
nicely. The PRINT subroutine in lines 1680-1840 picks up the 
String which follows the JSR PRINT and prints it out, modifies 
the return address, and returns to the next instruction 
following the string. 


The second macro calls on the Apple monitor to print a byte in 
hexadecimal. If there is no parameter in the >HEX macro call 
line, the macro will assume the byte to be printed is already 
in the A-register and generate only a JSR PRBYTE line. 
However, if you include one parameter, the macro will generate 
a LDA instruction to load the value into the A-register first. 
For example: 


>HEX generates JSR PRBYTE 

>HEX #$24 generates LDA #$24 
JSR PRBYTE 

>HEX BUFFER generates LDA BUFFER 
JSR PRBYTE 


>HEX “BUF+2,Y" generates LDA BUFt2,Y 
JSR PRBYTE 


Note that in the last example I had to put the BUF+2,Y in 
quotation marks, so that the assembler would include the ",y" 
aS part of the J1 parameter. 


When you use >HEX with no parameter, you also must not put a 
comment on the line. The first word of any comment would be 
considered as a parameter, generating bad results. 


I assembled the program with the .LIST MOFF option, so that 
macro expansions are not shown. 


The program assumes that you have BLOADed the SEG.Mx file 
header into a buffer starting at $OA0Q. On my disk I have 
those files in a subdirectory called AW, so after assembling 
the program I typed: 


BLOAD AW/SEG.M0,T$00,ASA00 ,L200 
MGO T 
BLOAD AW/SEG.M1,TS$00,A$A00 ,L200 
MGO T 


Lines 1200-1280 search through the index beginning at $OA00 for 
the first 3-byte entry which is not all zero. There is one 
000000 entry in the SEG.MO file, and there are ten of them in 
the SEG.Ml file. The first non-zero entry actually also points 
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just past the end of the index header, so I 


a loop termination count in lines 1290-1310. 


Lines 1330-1350 print 
number in hexadecimal. 


save that value for 


"SEGMENT." and the two digit segment 
Lines 1360-1390 decide whether the 


segment exists or not, and prints ": null" if it does not. If 


the segment does exist, 
load address, 


"BSxxxxxx" 


Lines 1570-1630 advance to the next three byte entry, 


and the 


lines 1410-1560 print out the 
using the value from my LOAD.ADDRESS.TABLE; the 
file offset; 


"ASxx00" 


"LSxxxx" segment length. 


back if not at the end of the index header. 


and loop 


Using the information that prints out I could easily load any 
individual segment from within one of the SEG.Mx files and save 
For example, to load and save 


it on its own private BIN file. 


segment $20 I would type: 


BLOAD SEG.M1,T$00,A$1000,B$0144BB, LS$1E4E 


BSAVE SEGMENT .20,A$1000,LS1E4E 


I could modify the analysis program to generate an EXEC file 
which would include two lines like these for each existing 


segment. 


Then EXECing the file would automatically produce 40 


separate binary files, one for each overlay segment (not 43, 


because there are three “null” segments). 
easier to disassemble each one. 


This would make it 


I probably will end up 


modifying it this way eventually. 


Another interesting program would create a new SEG.Mx file from 


a set of separate binary files within a subdirectory. 
you bet Robert Lissner has just such a program? 


What do 


DON LANCASTER STUFF 


INTRODUCTION 
TO POSTSCRIPT 


A 65 min user group VHS 
video with Don Lancaster 
sharing many of his laser 
publishing and Postscript 
programming secrets. 


Includes curve tracing, $5 
toner refilling, the full Kroy 
Kolor details, page layouts, 
plus bunches more. 


$39.50 


FREE VOICE HELPLINE 


Box 809-SC 
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ASK 
THE GURU 


An entire set of reprints to 
Don Lancaster's ASK THE 
GURU columns, all the 


way back to column one. 


Edited and updated. 


Both Apple and desktop 
publishing resources are 
included that are not to be 
found elsewhere. 


$24.50 


APPLE llc/lle 
ABSOLUTE 
RESET 


Now gain absolute control 
over your Apple! You stop 
any program at any time. 


Eliminates all dropouts on 


your HIRES screen dumps. 
Gets rid of all hole blast- 


ing. For any lic or lle. 


$19.50 


SYNERGETICS 
Thatcher, AZ 85552 


POSTSCRIPT 
SHOW & TELL 


Unique graphics and text 
routines the others don't 
even dream of. For most 
any Postscript printer. 


Fully open, unlocked, and 
easily adaptable to your 
own needs. Available for 
Apple, PC, Mac, ST, many 
others. 


$39.50 


VIS A/MC 


(602) 428-4073 


--Copyright (C) S-C SOFTWARE..... Page 2] 


1010 *SAVE S.SHOW. INDEX 
1020 Bn n nn mn nn ee ee ne eee eee eee 
FD8E- 1030 CROUT .EQ $FD8E 
FDDA- 1040 PRBYTE .EQ $FDDA 
FDED- 1PO cout -EQ $FDED 
tote -MA PRINT 
1080 JSR PRINT Print 00-term'd string after 
1090 -AS -"J1" here is the string 
1100 ~-HS 00 here is the 00-terminator 
1110 . EM 
1120 Benen nnn nn nn nn een ee eee nee 
1 iG -MA HEX 
1140 -DO J# If ma | parameter, LDA it 
1150 LDA ]1 here is the LDA 
1160 -FIN 
ys JSR PRBYTE Print <A> in hexadecimal 
1B ge 
i300 T 
O800- A2 FF 1210 LDX #-1 X will be the se nt number 
O802—- AO FD 1220 LDY #-3 FIND FIRST NON-ZERO ENTRY 
O804- C 1630 ra INY 
0 bee C 1240 INY 
SBor- EB 1580 INX 
0808—- B9 00 OA aon LDA BUF,Y 
O80B- FO F7 1280 BEQ .1 ..ethis entry was empty 
SBOE. Bo 03 (1300 SBC #3 
0810- 8D 8B 08 1336 STA Y.LIMIT 
0813- ‘aie ~-2 PRINT "SEGMENT." 
Ee 8A eG ay PRINT SEGMENT NUMBER 
0823- BD BO 08 1360 LDA LOAD. ADDRESS.TABLE ,X 
0826- DO OE 1319 BNE .3 not a null segment 
0828- 1380 >PRINT ": null® 
0833- 4C 7E 08 1330 JMP . 
08 36- 1410 .3 >PRINT ™: A$" Print load address 
083F- 1420 >HEX "LOAD. ADDRESS.TABLE,X 
03845- 1 30 >PRINT "00, B$" Print file offset 
O84F- 1440 >HEX "BUF+2,Y 
0855- ete >HEX "BUF+1,Y 
085B- 1460 >HEX "BUF ,Y 
OF eae 38 Ley ant n L$" Print segment length 
O86A=- BY 03 OA 1490 LDA BUF+3,Y 
guess fg 00 ok og gar mt 
0871= B9 O4 OA 1520 LDA BUF+4,Y 
O874—- FO 01 OA eh SBC BUF+1,Y 
087T- 1540 >HEX 
OBiB. 1360 >HEY 
O87E- 20 8E FD eae 4 JSR CROUT Next line 
0881- E8 1580 INX Next segment number 
0882- C8 1590 INY Next header pointer 
SRBR ce 610 INY 
= INY 
0885= CC 8B 08 1620 CPY Y.LIMIT Into first segment? 
0888- 90 89 16 30 BCC .2 »».nO, more lines 
O88A- 60 ieee Ps RTS ..- done 
088B- Was Y.LIMIT BS 1 
ecOCENINE 
O88C- 68 1930 PLA POP RETURN ADDRESS 
: ne Bp 9D 08 1040 Se . BECAUSE IT POINTS TO STRING 
0891- 8D 9E 08 1720 STA .2+2 
O894- EE 9D 08 ripe | INC .2+1 BUMP POINTER TO NEXT CHAR 
St 20S og Weg” 
= ‘ +> 
O089C- AD 33 33 1760 .2 LDA $3333 GET NEXT CHAR OF STRING 
O89F- FO 0 a te BEQ .3 00 = END OF STRING 
O8A1= 20 ED FD 1780 JSR COUT PRINT CHAR 
O8AN=- 4C 94 08 1790 JMP .1 --- NEXT 
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2 9E 08 3 LDA .2+2 PUT RETURN ADDRESS ON STACK 


O8AB- AD 9D 08 


LOAD. ADDRESS. TABLE 
~HS 30 


tek tk tt 
COCO OOMOMO 
NAN Sw © 
eleajlezseoloalelolo) 


dummy entry for segment 00 


1880 DATA.BASE .HS 35.45. 45.45. 45.45. HE. ME.MA 
1890 HS 4E.4E.4E.53.4E.00 


1900 WORD.PROC .HS 35.3D.3D.40.00.00.67.77 


1910 SPRD.SHEE .HS 33.3B.53.53.53.53.53.53.45 


Fer rwwDAoowmmnmnu 
DANS OWOLLLE 
SFeeww ovomMruwi 


ADNAN NW—~I 


-HS 64.64.64.64.64.64.64.64.64 
S 64.64 


Enter Hott: 


Basic-like macros which make the complex simple. Don't re-write that 
multiplication routine for the hundredth time! Get EnterSoft instead! Do 
8/16/32/64 bit Math/Input-Output/Graphics simply without all of the 
hassles. These routines are a must for the serious programmer who 
doesn't want to spend all of his/her time trying to re-invent the wheel. 
DOS 3.3 Version=$30.00, ProDos Version=$30.00, BOTH for only $50.00. 

GET YOURS TODAY. 


A Shape Cable Program: 


For once! A shape table program which is logically organizied into its 
componet parts. Each section resides in its own program. The editor, 
disk access, Hi-Res section; each section is separate. Written almost 
entirely in Basic, it is easily modified. Not copyprotected! Put them ona 
Hard Disk, Ram Drive, anywhere! DOS 3.3 Version=$20.00, ProDos 

Ver sion=$20.0 00, BOTH for ath 00! 


Send Check or Money Order To: S ProDos Upgrade for DOS 3.3 
J EnterSoft Owners = $20.00 
Mark Manning 
Simulacron !/Baggy Game 
P.O. Box 58598 


Webster, TX 77598 Thanks for the letters - 
Keep Writing! 
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Backup/Restore for RamFactor DOS Partition 
~-e-BOob Sander-Cederlof 


The Applied Engineering RamFactor memory card is now widely 
distributed, and with good reason. It is among my very 
favorite cards, and I use it heavily every day. I use mine 
with the RamCharger battery backup system, so that the memory 
stays loaded and ready all the time. 


I have mine partitioned into two parts: a DOS 3.3 partition of 
140K (floppy size), and a ProDOS partition with all the rest. 

I have been using Copy II Plus to backup the ProDOS partition 
on a 3.5 inch disk, but I haven't been keeping an up-to-date 
backup of the DOS partition. (Copy II Plus cannot access the 
DOS partition, or at least not when I have just loaded Copy II 
Plus out of the ProDOS partition on the same card.) 


I have sometimes used FID to copy every file from the DOS 
partition to a floppy, but that takes a long time. In fact, 
when I tried it today, it took 160 seconds to save 31 files. 
And that only backs up the files. If the RamFactor is somehow 
clobbered, I will also need to restore the DOS image. My DOS 
is significantly patched, so I would really like to have it on 
the floppy too. Let's see.... I could boot from the 
RamFactor, go into Applesoft, load the HELLO program, directly 
type in the INIT command to initialize a floppy, then go into 
FID and copy all the rest of the files. Too much! And anyway, 
how do I get the floppy's contents copied back into the 
RamFactor ? 


Looking at the whole problem another way, what if I did not 
have the RamCharger? Then I would need to copy all the files 
and a DOS image into the card at least once a day. That could 
be really tiresome. 


I decided to write a program to simplify things. My program 
has three parts: Format, Backup, and Restore. FORMAT.FLOPPY 
will do a raw format of a floppy disk. That is, it only writes 
ths sector headers for 16 sectors on each of 35 tracks; it does 
not write a DOS image or an empty catalog. If the floppy I 
wart to use has already been formatted, I can skip using 

FORMAT .FLOPPY. 


BACKUP copies all the sectors of all 35 tracks from the 
RamFactor to the Floppy, and RESTORE does the reverse. BACKUP 
takes 46 seconds to copy and verify all 560 sectors, and 
RESTORE takes 25 seconds to read them back. Not as fast as 
possible, considering how fast Locksmith can copy one 
un-protected floppy to another, but my program is considerably 
shorter than Locksmith. If I leave out the Verify phase, 
BACKUP takes only 25 seconds. 


Since all sector I/O is done by calls to RWTS, this same 
pragram could be used to backup and restore floppy-sized 
voiumes on the Sider Hard Disk, with only minor modifications. 
Sider comes with a modified version of FID which already can do 
an “image” copy, as they call it, but it is too slow for me. 
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Another set of modifications would make ny program work with 
400K DOS partitions on the RamFactor and 3.5 inch disks 
formatted for use with DOS. 


I decided to keep the program simple, for now. The slot 
numbers for the floppy drive and the RamFactor are assembled in 
at lines 1020-1030. A fancy program would probably do a slot 
search to find them, and give you a choice if there were more 
than one of either in the computer. A fancy program would also 
give you a little menu for selecting FORMAT, BACKUP, or 
RESTORE; I didn't do that either, but you can easily add one. 
One more improvement would be to automatically format the 
floppy if it isn't already formatted. 


Well, let's look at what I DID do! Lines 1300-1370 show the 
two entry points for BACKUP and RESTORE. They load the slot 
numbers (shifted into the high nybble, so we say it is slot*l6) 
into the A- and X-registers and go to COPY. COPY copies 35 
tracks of 16 sectors each from the slot in the A-register to 
the slot in the X-register. 


Lines 1390-1790 are the COPY subroutine. As each track is 
copied, I display the track number in hex, and the letters R, 
W, and V on the screen. After the letter R is displayed, I 
read the entire track from the source slot/drive into a buffer 
which starts at $2000. After the letter W is displayed, I 
write out the track to the destination slot/drive. After the 
letter V is displayed, I read the entire track again, this time 
from the destination slot/drive. If RWTS does not report any 
error, I assume the track is good. A more excellent way might 
be to read the destination track into a different buffer, and 
compare all 4096 bytes with the original. 


After the track is verified I print two more spaces, making the 
total number of characters displayed for each track, eight. 
This means I display either 5 or 10 tracks on a screen line, 
depending on whether the screen is set to 40- or 80-columns. 


If you want to skip the verify step altogether, you can delete 
lines 1620-1660 and add one more JSR COUT after line 1700. 


Reading or writing a track is handled by lines 1840-2070, 
RW.TRACK. This finishes setting up the IOB and calls RWTS to 
do the I/O. If RWTS reports any error during the copy process, 
copying stops and I print all the interesting information about 
the error. Lines 2090-2280 do the printing. You can also stop 
a copy by typing any key. Lines 1710-1720 look for a keypress 
after finishing each track, and abort if one is found. 


RW.TRACK reads the sectors in the order 15 down to 0. Of 
course, RWTS translates the logical sector numbers into "real" 
sector numbers, but we don't need to worry about that. There 
is an optimum order to read or write sectors, and it depends on 
several factors. First, it depends on the interleaving order 
on the disk, as viewed through the RWTS logical Sector numbers. 
Second, it depends on how much time is wasted between reading 
Or writing each sector. Programs like Locksmith read an entire 
track in one revolution of the disk, once the beginning of any 
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sector is found. Locksmith also writes an entire track in one 
revolution. Using RWTS that is not possible, but you can 
probably do it in an average of 2.5 revolutions if you are 
smart enough. The drive spins at 5 revolutions per second, by 
the way. 


I tried reading the sectors in the order 0 to 15, and it took 
100 seconds just to READ 35 tracks. In the order 15 to 0, this 
took only 24 seconds. The disk turns 120 times in 24 seconds, 
so I am averaging less than 3.5 revolutions per track including 
the time it takes to step from track to track. (Theodore 
Roosevelt used to warn national leaders around the world about 
the hazards and long-term negative results of a habit of 
revolution, but I think he was on a different track.) 


If you decide to type in this program, with or without any 
modifications, be very careful about using it. You can easily 
wipe out the contents of the RamFactor with only a tiny bug. I 
carefully made a backup with FID before testing RESTORE. It 
turned out I didn't need it, but I am still glad I did. 


Do You Have 
Apple Knowledge? 


If you do, Applied Engineering would 
like to put your knowledge to work. 
We're looking for someone to filla 
position in our Technical Support group. 


You must have a strong working knowledge 
of AppleWorks, ProDOS, DOS 3.3, and AppleSoft BASIC. 
Applied Engineering offers good benefits and a pleasant work 
environment. Office is non-smoking. We're located in the 
Carrollton area. 

So if you've got the knowledge and want to sink your teeth into a 
position with an ever-expanding company, give us a call at 
(214) 241-6060. 
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ees gOAVE S.FAST RAMFACTOR BACKUP 
O4- 1020 RFSLOT .EQ 4 RAMF ACTOR SLOT 
06- aio ELSLOT -EQ 6 FLOPPY SLOT 
03E3- 1050 GETIOB .EQ $3E3 
03D9- ee RWTS ~-EQ $3D9 
Co00- 1080 KEYBOARD ~-EQ $C000 
C010- SAA STROBE ~-EQ $C010 
FD8E- 1110 CROUT .EQ $FD8E 
FDDA=- 1120 PRBYTE .EQ $FDDA 
FDED- \ a0 COUT -EQ $FDED 
1150 - DUMMY 
1160 -OR GBIES 
B7E8- i IOB -BS Reference "Beneath Apple DOS" 
BTEQ- 1180 SLOT16 .BS 1 
B7EA=- 1190 DRIVE .BS 1 
BTEB- 1200 VOLUME .BS 1 
BTEC=- 1210 TRACK .BS 1 
B7ED- 1220 SECTOR .BS 1 
B7EE- 1230 -BS 2 ADDR OF DCT 
B7FO- 1240 BUFADR .BS 2 
BYP 1380 "BS 1 
B7F5- 1270 ERRCOD .BS 1 
1590 & : 
1300 BACKUP 
O800- AQ 40 1310 LDA #RFSLOT#16 From RamFactor to Floppy 
O802- A2 60 1320 LDX #FLSLOT#16 
O8O4- HC OB 08 ; Bo : JMP COPY 
1350 RESTORE 
O807- AJ 1360 A #FLSLOT#16 From Floppy to RamFactor 
0809- A2 40 13b0 ‘ LDX #RFSLOT®16 
O80B- 8D 61 0 1390 COPY STA SRC.SLOT!1 Save Source Slot#16 
O80E- 8E 62 08 1400 STX DES.SLOT1 Save Destination Slot#16 
SIC AB BL ay BEBE Bliyg Both ae rive 
0816=- AO 00 vee LDY #0 For Track = 0 to 34 
BIE Gg He or IRS 1 gey Hace 
Opts ac DA FD vice ash eee pane oo number in hex 
= - an a as eee 
0821= 20 ED FD 1460 2 peiN en kCR. 
O824- AQ D2 1500 LDA #*"R* Print "R*®* 
0826- AE 61 08 1510 LDX SRC.SLOT16 Read track from Source Slot 
0829- AO 01 1520 LDY #1 READ COMMAND 
O82B- 20 63 08 120, JSR RW. TRACK 
O82E- BO 6 1540 BCS RWTS.ERROR .. Error 
1225 #.~~-WRITE TRACK ON FLOPPY-------- 
0830- AQ Dy 1560 LDA #*wW* Print "Ww" 
0832- AE 62 08 ae LDX DES.SLOT16 Write track to Dest. Slot 
She $0 88 on (28 BE ES myc ITE Com 
ete BO + 1260 BCS RWTS.ERROR .«.Error 
1610 #---VERIFY TRACK ON FLOPPY------- 
083C= AQ D6 1620 LDA #*V* Print "vy" 
08 BE AE 62 08 19 30 LDX DES.SLOT16 Read track for Dest. Slot 
O841—- AO 01 1640 LDY #1 READ COMMAND 
0843- 20 °3 08 1650 JSR RW. TRACK 
O846- BO 4 1660 BCS RWTS.ERROR ..- Error 
78 #.--CHECK FOR ABORT-<--<-<--------- 
O848—- AQ AO 1680 LDA #" * Print 2 blanks 
apne aM ah ste a0 aon cour allowing 8 screen columns per track 
apres aD 09 CO Kel ae Ber eORNe Pree e any key to abort 
ar 1130 O-- NEXT TRACK=---------- econ 
ie a iy ne 
0859- CO 2 1760 CPY #35 limit to 35 tracks 
O85B- 90 BB uae BCC .1 ~-e-more to do 
0860- 60 1790 RTS 
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1800 8-2 ne nnn nnn en nner 
0861- 1810 SRC.SLOT16 .BS 1 
0862- 1820 DES.SLOT16 .BS 1 
2000- 1830 TRKBUF -EQ $2000 ... 2FFF 
1850 & A)=CHAR TO BE PRINTED 
1860 # X )=SLOT #16 
1970 # Y)=1 for READ, 2 for WRITE 
TREO Wanwicneancoceesocacecntecss eo cee 
rae RW. TRACK 
0863- 8E E9 B7 1900 SLOT16 Save slot#16 in IOB 
O865- BC FA BT 1910 STY Save command in IOB 
O8€'-= 20 ED FD 1920 JSR COUT Print R, W, or V 
O086c=- AX 00 138, LDA #0 
O86E- 8D EB BT 1940 STA VOLUME Accept any volume number 
0871- 8D FO B7 1950 STA BUFADR Lo-byte of buffer address=00 
O87'- AQ 20 1960 LDA /TRKBUF Hi-byte of buffer address 
0876- 8D F1 BT late STA BUFADR+1 
0879—- AO OF 1980 LDY #15 For Sector = 15 to 0 step -1 
087B- 8C ED B7 1990 .1 STY SECTOR 
O87E=- 20 E3 03 2000 JSR GETIOB Setup for RWTS Call 
0881- 20 D9 03 2010 JSR RWTS 
O884- BO 09 2020 BCS .2 ee ERROR 
0886- EE F1 B7 2030 INC BUFADR+1 Next Buffer Address 
O889- AC ED B7 2040 LDY SECTOR 
O88C- 88 2050 DEY Next Sector 
2090 RWTS.ERROR 
0890=- 20 8E FD 2100 JSR CROUT Print gait that's of interest 
0833 AD EQ B7 2110 LDA SLOT16 Slot ® 16 
0896- 20 BA 08 2120 JSR PRBYTE.SPACE 
0899- AD EA B LDA DRIVE Drive number 
O89C- 20 BA 0 JSR PRBYTE.SPACE 


5180 
AD art LDA TRACK Track number 
O8f2= 20 BA 08 2160 JSR PRBYTE.SPACE 
‘ Sihe LDA SECTOR Sector number 
2180 JSR PRBYTE.SPACE 
2190 


O8AB=- AD F4 B LDA CMD Command Code 
OSAE- 20 BA 08 2200 JSR PRBYTE.SPACE 
OSBi- AD F5 BT 2210 LDA ERRCOD Error Code 
O8B4- 20 BA 08 2220 JSR PRBYTE.SPACE 
O8B7—- 4C 8E FD ss 0 JMP CROUT 
2250 PREYTE. SPACE 
O8BA- 20 DA FD 22600 JSR PRBYTE Print value in hex 
ORBD- fa AO 2270 LDA #" © and a space 
O8BF- 4¢ ED FD 2280 JMP COUT 
2290 #------------------------~------- 
2300 FORMAT.FLOPPY 
O8C2- AQ 01 2310 LDA #1 
O8C4- 8D EB B7 2320 STA VOLUME Make it volume 1 (why not?) 
O8C7- 8D EA B7 2330 STA DRIVE on Drive 
O8CA- AQ 60 2340 LDA #FLSLOT #16 Do. it to the floppy 
O8CC- 8D E9 B7 2350 STA SLOT16 
O8CF- AQ 0 2360 LDA #4 FORMAT COMMAND Code 
O8Di- 8D F4 B7 2370 STA CMD 
O8D4- 20 E3 03 2380 JSR GETIOB Set up RWTS call 
O8DT= 20 DI 03 2390 JSR RWTS 
OSDA- Be B 2400 BCS RWTS.ERROR 
O8DC- 60 2410 RTS Done 
ONDO Bacisos cc oopselcsas coco oseeeceece 
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